home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ASpEmu_NOROM.lha / ASpV076 / Rexx / POKEr.asprx < prev    next >
Text File  |  2000-10-20  |  650b  |  27 lines
  1. /* $VER: POKEr 1.0 */
  2.  
  3. /* Ask for POKE values until user quits. */
  4.  
  5.  
  6.  
  7. IF OPEN(MYWIN,'CON:0/0/320/150/POKEr.asprx Input Window/AUTO',R) THEN DO
  8.     WRITELN(MYWIN,'Demo POKE system.')
  9.     WRITELN(MYWIN,'Address range 0-65535, value range 0-255')
  10.  
  11.     oneline='aa'
  12.     DO WHILE oneline~=''
  13.         WRITELN(MYWIN,'')
  14.         WRITELN(MYWIN,'Enter <addr>,<val> or just Enter to quit')
  15.         WRITECH(MYWIN,'POKE ')
  16.         oneline=READLN(MYWIN)
  17.         IF oneline~='' THEN DO
  18.             PARSE VAR oneline addr','val
  19.             IF (addr<0 | addr>65535 | val<0 | val>255) THEN WRITELN(MYWIN,'Number out of range! Try again!')
  20.             ELSE DO
  21.                 POKE addr val
  22.                 WRITELN(MYWIN,'Ok.')
  23.             END
  24.         END
  25.     END
  26.     CLOSE(MYWIN)
  27. END